home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGBLER / PC37030.LZH / PC37030.ZIP / DEMOPD2.ALC < prev    next >
Text File  |  1986-07-21  |  896b  |  21 lines
  1.     TITLE 'DEMOPD2 - PRINT POWERS OF 2 USING PACKED DECIMAL'
  2. DEMOPD2  CSECT
  3.     USING  *,BASE       USE ENTRY POINT REG AS BASE
  4.     SPM    0            SET PROGRAM MASK TO SURPRESS DECIMAL OVF
  5. LOOP     MVC    DNUM,MASK
  6.     ED     DNUM,PWORK
  7.     LA     R2,DMSG
  8.     SVC    WTO          PRINT LINE VIA WRITE TO OPERATOR SVC
  9.     AP     PWORK,PWORK  DOUBLE PACKED DECIMAL NUMBER
  10.     BNO    LOOP         LOOP UNTIL OVERFLOW CONDITION CODE SET
  11.     SVC    EXIT
  12. EXIT     EQU    0            PC/370 SVC 0 EXIT TO MS-DOS
  13. WTO      EQU    209          PC/370 SVC 200+9 WRITE TO OPERATOR
  14. R2       EQU    2
  15. BASE     EQU    15
  16. PWORK    DC     PL16'1'      INITIAL PACKED NUMBER
  17. MASK     DC     C' ',X'20',10X'6B202020'  EDIT MASK BLANK AND COMMAS
  18. DMSG     DC     C' '
  19. DNUM     DC     CL(DMSG-MASK)' ',C'$'
  20.     END    DEMOPD2
  21.